home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / auto_cad / acadbkd.txt < prev    next >
Text File  |  1988-07-15  |  2KB  |  61 lines
  1.  
  2.  
  3.      Autocad menu for drawing block diagrams, organization charts, etc.  This
  4. can be added to the standard ACAD.MNU file at the end of the main menu
  5. following "[UTILITY...." and adds the submenu "BLKDWG".  This submenu
  6. is intended to allow easy selection of the following functions:
  7.  
  8.    SNAP turns on a .4 unit snap.
  9.  
  10.    RECTANG allows drawing a variable height/width rectangle but unlike
  11.    the standard rectang function does not prompt for the rotation of the
  12.    rectangle -- assumes zero rotation.
  13.  
  14.    ZOOM-A and ZOOM-W select zoom-all and zoom-window respectively.
  15.  
  16.    A-LINE draws a line with an arrow head pointing to the first point
  17.    selected from the second point selected.
  18.  
  19.    TEXT-C, TEXT-L, and TEXT-A setup centered, left justified, or
  20.    aligned text.
  21.  
  22.    The other functions work normally.
  23.  
  24.                                             T. C. Goldsmith
  25.                                             Box 34949
  26.                                             Bethesda, Md
  27.                                             20817
  28.  
  29.  
  30. [BLKDWG]$S=BKD
  31.  
  32.  
  33.  
  34.  
  35.  
  36. **BKD
  37. [SNAP]SNAP .4;SNAP ON
  38. [RECTANG]INSERT;RECTANG;DRAG \DRAG \;0
  39. [LINE]^CLINE
  40. Close
  41. [ZOOM-A]ZOOM A
  42. [ZOOM-W]ZOOM W
  43. [PAN]^CPAN
  44. [ERASE]ERASE
  45.  
  46. [A-LINE](setq AP(getpoint"select endpoint"));\+
  47. (setq NP(getpoint"select begin point"));\+
  48. LINE;!AP;!NP;;+
  49. (setq LANG (angle AP NP));+
  50. (setq A1 (+ LANG 0.5));+
  51. (setq A2 (- LANG 0.5));+
  52. (setq PT2 (polar AP A1 0.3));+
  53. (setq PT3 (polar AP A2 0.3));+
  54. SOLID;!AP;!PT2;!PT3;;;
  55.  
  56. [TEXT-L]^CTEXT;\;;
  57. [TEXT-C]^CTEXT;C;\;
  58. [TEXT-A]^CTEXT A;\;
  59. [CANCEL]^C
  60. [ROOTMENU]$S=S
  61.